(keyboard-translate): Properly lengthen existing table.

diff --git a/lisp/subr.el b/lisp/subr.el
index 5279cf0ea202b48cf91181794b784384581c545a..031c7ff442135ccc83f0a26ba72bd1b979840f75 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -227,7 +227,8 @@ and then modifies one entry in it."
          (> to   (length keyboard-translate-table)))
       (progn
        (let* ((i (length keyboard-translate-table))
-              (table (make-string (- 256 i) 0)))
+              (table (concat keyboard-translate-table
+                             (make-string (- 256 i) 0))))
          (while (< i 256)
            (aset table i i)
            (setq i (1+ i)))